home *** CD-ROM | disk | FTP | other *** search
/ Ozsi 9 / Ozsi_09_1998_Tide_Side_B.d64 / colorbar _rtn (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  30 lines
  1. 1 print"[147]":poke53281,0:poke53280,0:forx=49422to49568:ready:c=c+y:pokex,y:next
  2. 2 forx=49664to49679:ready:c=c+y:pokex,y:next
  3. 3 ifc<>19110thenprint"error":gosub100
  4. 4 print"let ozsi,put a bit of color in your life":poke646,1:sys49422
  5. 10 data120,169,127,141,013,220,173,013
  6. 11 data220,169,027,141,017,208,169,000
  7. 12 data141,018,208,169,053,141,020,003
  8. 13 data169,193,141,021,003,169,001,141
  9. 14 data025,208,141,026,208,088,096,169
  10. 15 data001,141,025,208,162,011,202,016
  11. 16 data253,032,129,193,169,000,240,051
  12. 17 data173,160,193,073,001,141,160,193
  13. 18 data208,041,174,156,193,202,202,134
  14. 19 data255,024,169,000,101,255,141,119
  15. 20 data193,169,194,105,000,141,120,193
  16. 21 data172,000,194,162,000,189,001,194
  17. 22 data157,000,194,232,228,255,144,245
  18. 23 data140,255,255,169,049,141,018,208
  19. 24 data076,049,234,169,007,133,255,160
  20. 25 data000,185,000,194,141,033,208,141
  21. 26 data033,208,152,037,255,240,005,162
  22. 27 data006,202,016,253,200,192,016,208
  23. 28 data232,096,000
  24. 29 rem color table
  25. 30 data009,002,008,010,015,007,007,001
  26. 31 data013,003,005,014,004,011,006,000
  27. 50 rem*ye olde'apex'color bars from'cf'
  28. 51 rem*modified slightly so use it/tomz
  29. 100 forx=1to50000:poke2020,20:poke2021,9:poke2022,4:poke2023,5:next
  30.